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| **F ILE ®*]D**BADREPORT 


8 

| vi 
| 

é 

| : 

BBSBBBBB AAAAAA DDDDDDDD RRRRRRRR EEEEEEEEEE PPPPPPPP 000000 RRRRRRRR TTTTTTTITTT : 

BBBBBBBB AAAABA DDDDDDDD RRRRRRRR EEEEEEEEEE PPPPPPPP 000000 RRRRRRRR TTTTTTTITTT é 

BRB BB AA AA OD DD RR RR EE PP PP 00 00 RR RR TT ; 

8B BB AA AA ODD DD RR RR EE PP PP 00 00 RR RR TT P 

BB BB AA AA DD DD RR RR EE PP PP 00 0O RR RR TT : 

BB BB AA DD DD RR RR EE PP PP 00 00 RR RR TT é 

BBBBBBBB AA AA ODD DD RRRRRRRR EEEEELEE PPPPPPPP 00 00 RRRRRRRR TT : 

AA DD DD RRRRRRRR EEEEELEE PPPPPPPP 00 00 RRRRRRRR TT Pt 

BB BB AAAAAAAAAA DD DD RR RR EE PP 00 00 RR RR TT Ps 

BB BB DD DD RR RR EE PP 00 00 RR RR TT : 

BB BB AA OD DD RR RR EE PP 00 0O RR RA TT wees ; 

BB BB AA AA DD DD RR RR EE PP 00 00 RR RR TT sews : 

BBBBBBBB AA AA DDDDDDDD RR RR EEEEEEEEEE PP 000000 RR RR TT “eon H 

AA AA DDDDDDDD RR RR EEEEEEEEEE PP 000000 RR RR TT sees : 

LL II1111 SSSSSSSS PY 

LL II11I SSSSSSSS : 

LL I] ss é 

LL Il $s Pt 

LL II SS é 

LL I] ss ° 

LL I] SSSSSS : 

LL II S$SSSSS é 

LL II Ss : 

LL Il Ss : 

LL I] SS : 

LL II ss 3 

LLLLLLLLLL HIII11 SSSSSSSS : 

LLLLLLLLLL HII] SSSSSSSS é 
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| BADREPORT Analyze/Media Report Generation Module 18-52 =1984 23:42: AX-11 Bliss-32 V4.0-74 Pa 
; 14- ~3007}38? 97:92:58 YBAD. SRCJBADREPORT .B32; “a 
is 1 1 MODULE badreport (ZTITLE ‘Analyze/Media Report Generation Module’ 

: 0008 p IDENT = "VOe-000") = 

3 Z ° : BEGIN 

: 5 5 ; lsnuaneeneneeeaerecenceeeneneeerecerencerererretererersenenrenenneeeernertens 

3 ‘® * 

3 5 5009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 

3 8 4: 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 

$ 1% BRP : :* ALL RIGHTS RESERVED. * 

g : * 

Tig. 0011 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copies * 

3 \ oie 1 '* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

3 015 1 !* INCLUSION OF THE ABOVE eerraient NOTICE. THIS SOFTWARE OR ANY OTHER * 

: 616 014 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

; 15 0015 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

3 18 id : ;< TRANSFERRED. * 

Py 3 a 

;s 7% Bote 1 '® THE gt re IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

3 19 001 1 !* AND SHOULD BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

3 $y Oost : ws CORPORAT ION. * 

3 ; * 

; $§ oh 4 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 

$ B05 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

3 4 0024 1 !« * 

g 5 0025 1 !* * 

3 26 Boe6 1 VaR RORAE REAR AAAEAAAAAAAREEAAAAAAAEARAAATEARARETERAAAARAARARAAREREAA AEE 

; a 0027 1! 

; «628 0028 1! 

; 9 54 1 44 

; 0 0030 1! 

3 1 0031 1 ! Facility: 

; 2 Bos 1! 

3 3 0033 1! Analyze/Media 

3 4 0034 1! 

; 5 0035 1 ! Abstract: 

3 6 0036 1! 

3 7 0037 1! This module contains the routines necessary to produce a listing of the 

3 3 sit ! known bad blocks, which have been recorded in the MDBSF and SDBSF. 

; 40 0040 1 ! Author: 

: «(41 0041 1! 

i 42 S066 1! Michael T. Rhodes, Creation Date: July, 1982 

; 65 0043 1! 

on 1 0044 1 ! Modified By: 

3; 665 0045 1! 

; 646 0046 1! v03-001 mTROOOS Michael T. Rhodes 22-Jul-1983 

: «647 0047 1! Covert RMS error report ing mechanism from local signalling to 

:; 48 0048 1! the common UTILSREPORT_IO ERROR routine. 

; «649 0049 1! 

; $0 0050 1 i-- 


r 


g 

| BADR T Analyze/Media Report Generation Module ise 1984 23:42:4 AX-11 Bliss-32 V4.0-74 Pa 2 
v04 Declarations “rn 14-Sep-19 4 99:92:53 {BAD .SRE BADREPORT .B32; = (2) 
; ¢ p 1 } RSBTTL *Declarations' 

; $ 9 § | Include Files: 

; 6 033 1 REQUIRE 'LibS:baddef'; ! Define BAD's structures etc. 

: 38 vv : LIBRARY ‘SYSSLIBRARY:L1B'; ! Define VMS structures etc. 

: $9 ae 

; 60 178 1 ! Table of Contents: 

3; «66T 179 1! 

3 6¢ 180 1 FORWARD ROUTINE 

: ie | BeagSretece-Feport : AOVALUE: | BeeduceTRhe tapsrb Sommect date streams 

; : a . u . 

3 #4 0188 : bad$close_files : oe } aloes me output files. 

3 new_page : e ! Generate a new page. 

; oF 0185 1 out “line : NOVALUE, ' Write a new tine *5 the output file. 

; 68 3188 1 format_line : NOVALUE, ! Format the current Line. 

; «669 gis 1 et_entry, ! Extract and convert a last track entry to longword 
; £0 188 #1 ist_last_track : NOVALUE, ! List the last track bad block buffers (MDBSF and S$ 
; a Ht a4 ! List_non_Tsttrk : NOVALUE; ! List the non Last track bad biock buffer SDBSF. 
a. 0191 1! 

: 7% 3h) 1 ! External References: 

; 75 0193 1! 

; 0194 1 EXTERNAL ROUTINE 

; 0195 1 bad$cvt_ltk_long ADDRESSING_MODE (GENERAL), ' Convert last track entry to longwords. 

; 0196 1 bad$cvt_nlt_long ADDRESSING_MODE (GENERAL), ! Convert non last track entry to longwords. 

3 0197 1 ib$Sip_Tines : ADDRESSING_MODE (GENERAL), ' Obtain Line er seeer Lines pee page characteristic. 
: B138 : utilSreport_io_error: ADDRESSING_MODE (GENERAL); ! Report RMS 10 errors from FAB or RAB as appropriat 
; Be 0200 1 EXTERNAL 

; 6 0201 1 bad$ga_comnd_line : S$BBLOCK fdecs s_bln), ! Command Line descriptor. 

; B4 fa 1 bad$gl_context : BITVECTOR (32); ! Context bits. 

; 0203 1 bad$ga_device : SBBLOCK Cdsc$c_s_bin], ! Device name descriptor. 

; 86 0204 1 bad$gq_devnam : SBBLOCK Cdsc$c_s_bin], ! Device name descriptor. 

co. Gy 0205 1 bad$ga_filespec : SBBLOCK Cdsc$c_s_bin], ! File name descriptor. } 

; 59 $509 i beds SS eee REF SBBLOCK ASdrece et the Meet. ee ee 

3 ad$ga_ : : } ‘ 

os) oe $508 1 badSga7sdbsf : REF SBBLOCK, ! Address of the SDBSF. 

b> 0209 1 bad$gl_serialnum, ' Serial number for device. 

3 4 8 19 ! bad$gl“status; ! Global status. 

94 Oo1g 1 | 

oy oe 17 ' Define message codes... 

; 39 15 1 EXTERNAL LITERAL 

; «98 16 1 bad$_bikObad, ' Block 0 is bad. 

; 99 3 Zs bad$_closeout, ! Error closing output. 

; 100 18 1 bad$_fao, ! Error formatting data with FAO. 

: 19) 0 ? : badé _getms ' } Berar obEgintng message with GETMSG. 

3 ~heading!, r 

3 198 0 . badS~heading2, i Heading ine 

: 6106 ; 1 ad$_(stmdbsf, ' MDBSF/SDBSF heading Line. 

3 105 1 bad$_\stmdbs1, ! MDBSF/SDBSF sub heading Line. 

3 106 4 1 bad$_(|stmdbs2, ! MDBSF/SDBSF sub heading Line. 

: 19 . 5 d$_\lstmdbs5, ! MDBSF/SDBSF data Line. 

: 108 6 1 bad$_\stmdbs4, ! MDBSF/SDBSF count Line. 


> 


<@ 


; [ 
i 18-se 1984 23:42: AX-11 Bliss-32 V4.0-74 Page |8 
yaa Seelicecin ee a ene 1aagee18Be FFiSEISE | HONS AP LbRSRz Bont 83567 (23 V 
3 ! SDBSF heading Line. 
: if i Bedé-{stsabs ‘ i DBS sub heading Line. 
; 11 1 bad$"|stsdbs i SDBSF sub heading Line. 
g} 1 badSwlstsdbs8, i SDBSF data line. 
: 118 1 1 bad$-(sttotbk, ' Total bad blocks Line. 
3194 ; 1 bad$_(ststring, i List any ASCID string. 
3 335 1 bad$_openout, Error opening output file. 
: 19 1 bad$_writeerr; Write error. 
a ae 
; 119 i Private Storage: 
: 121 1 OWN 
: : J ' Address of the report file FAB. 
: 1 § rh } set gad : Shaper’ ' Address of the revert file RAB. 
: 126 4¢ 1 Line_count, % i Number of Lines remaining on a page. 
: 125 $7 ! adbs¥ count. ee in the MDBSF. 
; ; 8 o2 : Sdbsf count: i Number of enteries in the SDBSF. 
5 129 0 <3 1 LITERAL 
: 130 oseg 1 formfeed = 12; 
3; «131 0249 1 


ee 
nn 
| 


aa 
} 


H 9 

, BADR T Analyze/Media Report Generation Module 15-Sep-1984 23:42:4 AX-11 Bliss-32 V4.0-74 Page 
ane badSprepare_report -- Prepare Report File 14-Sep-19 $7 :82:38 BAD. SRC JBADREPORT .832; . 
is 9 1 ZSBTTL pobtter spare report -- Prepare Report File’ 

: 130 : : GLOBAL ROUTINE badSprepare_report : NOVALUE = 

: 4 1 i 

: ; : : } Functicnal Description: 

; 139 $ 1} This routine is responsible for ye ete the file spec for an output 

: 140 8 ~~ 2 SE ses tag file and establishing the data stream between the program and 

3 163 8 28 : that file. 

: 148 0 rs : Implicit Inputs: 

; ye 0 6¢ : bad$ga_filespec - Address of the file spec descriptor. 

; 149 0364 i Side Effects: 

; 149 0 66 The output Listing file is opened. 

: 151 0268 1 i-- 

3 136 0269 BEGIN 

; P 0270 SFAB_INIT rent opert fab, ! Initialize the FAB. 

> 154 P 0271 DNM="ANALYZE.ANL", 

i ESR po 

: 157 P 027% ORG=seq, 

; 158 P 0275 RAT=cr, 

3 + + 6 RFM=var); 

: 161 P $598 SRAB_INIT (RAB=report_rab, ! Initialize the RAB. 

; 16g P 0279 FAB=report_fab, 

Be nang 

3 165 028 IF .bad$ga_filespec Cdsc$w_length] NEQ 0 ' If the user supplied 

3 166 0988 THE oak . ! a filespec, use it. 

3 168 $588 report_fab Cfab$l_fna] = .bad$ga_filespec Fdsc$a_ ointer]; 

5 19? 0287 copert.tee fab$b_fns] = .bad$ga_filespec (dsc$w_length]; 

; 171 8 . 

3 176 0589 report_fab sont) chad = bad$_openout; ! Pass the error code 

; W 0290 report rab [rab$l_ctx]) = bad$_openout; ! for processing context. 

s 1976 0291 SCREATE (FAB = report_fab, ERR = util$report io_error); ! Create the output file. 

3 He 0 4 SCONNECT (RAB = report_rab, ERR = util$report_io_error);! Connect the data stream. 

; 179 0994 page_number = 0; ! Initialize the page number. 

; 179 0296 1 END;  ! of GLOBAL ROUTINE bad$prepare_report 

-TITLE BADREPORT Analyze/Media Report Generation Modul 
H é 
IDENT \V04-000\ 
4C 4E 41 2—€ 45 SA 59 4C 41 4E 41 00000 P.AAA: . ASCII \ANALYZE.ANL\ : 


4 
(3) 


1 


am 


eS NT a A i Te et [ 


| 9 
BADR T Analyze/Media Report Generation Module hes p-1984 AX-11 Bliss-32 v4. P 
viet bedSprepare. repert -- Prepare Report File 14- <8 71382 73 $f: $3 BAD. SRC aisaebont: g35¢ ~— (33 


.PSECT SOWNS,NOEXE,2 
00000 REPORT_FAB: 


-BLK 80 
00050 REPORT_RAB: 
-BLKB 68 
00094 LINE_COUNT: 
BLKB 4 
00098 MOBSF_COUNT: 
000SC PAGE NUMBER i 
Q00AO SDBSF_COUNT: 
.BLKB 4 
SRMS_PTR= REPORT_FAB 


SRMS_PTR= REPORT RAB 
-EXTRN BADSCVT -LTR. LONG 
-EXTRN BADSC YT NLT-LONG 
-EXTRN LIBSLP "CineS: _YEILSREPORT 10_ERROR 


-EXTRN BAD At 
~-EXTRN BADSGL_ “ConreRt, "BADSGA DEVICE 
-EXTRN BAD$GOQ- fey “BADSGA _FILESPEC 


-EXTRN BADSGL_MAXBLOCK 
-EXTRN BADSGA_ ROBSE BADSGA. SOBSF 
-EXTRN BADSGL_ ALNUM 


*EXTRN BADSGL = te BAD$_BLKOBAD 
-EXTRN BAD$_CCOSEOUT, BADS-FAO 
-EXTRN BADS~GETMSG, BADS HEADING! 
EXTRN DS_HEADING2, BADS_LSTMDBSF 
“EXTRN BADS“LSTMDBS1. BADS$-LSTMDBS2 
N BADS“LSTMDBSS. BADS-LSTMDBS4 
EXTRN BADS“LSTSDBSF. BADS-LSTSDBS1 
ZEXTRN BADS“LSTSDBS2. BADS-LSTSDBS3 
TEXTRN BAD$"LSTTOTBK. BADS-LSTSTRING 
EXTRN OPE RITEERR 
EXTRN SYSSCREATE, SYSSCORNECT 
.PSECT $CODE$,NOWRT,2 
O1FC 00000 ENTRY BADSPREPARE REPORT, Save R2,R3,R4.R5.R6.R7.-; 0251 
58 000000006 9E 0000 MOVAB UTILSREPORT 10_ERROR, R8 F 
38 000090006 ? 06 008 MOVL § #BAD$_OPENOOT, ~R7 : 
56 00° CF 19 NOVAB SRMS PTR Re : 
0050 =s BF 00 6E 99 2c St? MOVC #0, tsps. #0, #80, SRMS_PTR 3: 0276 
66 5003 8F BO 001 VW fats in SRMS_PTR : 
04 Ab 40 BF 9A MOVZBL PTR+4 : 
16 Ab 1 9 00 ve SkMs Spt Re2e ; 
1D Ab 0200 8F a movw #512, $RAS_PTR+29 ; 
1F Ab 2 0031 MOVB #2, $RMS_PTR+31 ; 
30 Ab 0000" CF 9 0 5 MOVAB P. SRMS PTR+48 : 
AG : 3 MOVE #11, $RMS_PTR+53 F 
0064 8F 00 6E so (00 C Os MOVCS #0, °(SP),"#0, #68, SRMS_PTR > 0280 
50 Ab 4401 8F BO Bock MOVW #17409, SRMS_PTR : 


ila oT ta lade ta, 5 9 
| BADREPORT Analyze/Media Report Generation Modul 1 -1984 AX-11 Bliss-3 
Foun D00" badSprepare.. report -- Prepore Report File 14- 3eon Oke 73 $2: $3 {BAD. ére aisatbont B32; te 
6E 4 000 CLRB Ha 4h} 
008C ef 
§§ 00006 es 
D 


1) 
st A6 00006 (CF 
4 A6 


+30 
MOVAB EPORT SRMS_PTR+60 
MOV ZL p40 GA~ “FicesPee: “RO 


6 

B L 

: MOVL BADSGA ORT PAB 52" REPORT _FAB+44 
18 MOVB Rr. REPO 


Ab MOVL PORT-FAB+ 
68 OA 7 0 MOVL REPORT - “RAB+24 
0140 8 BB F PUSHR ac 
000000006 00 é FB 3 CALLS i SYSSCREATE 
DD O007A PUSHL R 
50 AG OF 0 7¢ PUSHAB REPOR 
000000006 00 02 FB 0007F CALLS # RYSSCONNECT 
009¢ C6 D4 00086 CLRL PAGE _NUMBER 
04 0008A RET 


; Routine Size: 139 bytes, Routine Base: S$CODE$ + 0000 


: 180 0297 1 


Analyze/Media Report Generation Module p-1984 23: AX-11 Bliss-32 V4. 
new “page =o Generate a new page in the Listing 15-50-19 t ¥ eg: $3 YBAD. SRC BADREPORT B30; ‘Stat «as 


ZSBTTL_ ‘new_page -- Generate anew page in the Listing file’ 
oo new “soos : NOVALUE = oe . 

i 

i Functional Description: 


208 
Se 1 


The routine generates a new page in the Listing file, resets the Line 
counter, and generates the heading Lines. 


Implicit Inputs: | E 
Global data. 

Side Effects: 
A new page is generated with headings and the Line count is reset. 


ee ee ee ee ee 


Ooooceco 


BEGIN 
Line count = LIBSLP_LINES() =- 9; 
put_line (S$descriptor (ZCHAR (formfeed))); 


page_number = .page_number + 1; ! Increment the page number. 
format_line (bad$ héading!, 0, .page_number); Generate the hea ings. 
format_line (bad$_heading2, bad$ga_ device, bad$gq_ devnam, .bad$gl_serialnum) ; 

pute -t ine 0G: ! Skip a couple of Lines. 

u 


IF .bad$gl_context Cctx_v_ltdevice] 
THEN 


BEGIN 

format_ he (bad$_lstmdbs1); 
put_line (); 

format. Paty (bad$_lstmdbs2); 


ELSE 
EGIN 
format_line (bad$_lstsdbs1); 


put_line (); 
format. lene” (bad$_ltstsdbs2); 


' Set the number of Lines 
: cogetatng on the page. 
! Skip to top of page. 


1 
1 
is 
1 

1 

i 
189 
190 
3 
i 
194 
133 
i 
198 
Ht 
i 
5 
e 
3 
207 


oS 
~Ooo 


MMIMINININININ 2 3 SS | OOOO OOOOCOO 


non 


! Write the Last track 
! device sub headings. 


! Write the non Last track 
! device sub headings. 


=PONIWWIWIWIWIRI INI WII IO PPUPOPOPUPONONONUNNID 2 2 es 
wi ites Se 


Be Se Se Se Se Se SO Se Se Be Se Ge FF Ss Se Ss Ss Ge Se Se FF Se Se Se SF Ss Se Ge Se Fs Ge Se Se Ge Se Se ee Ge Se Sse Se Ss Seer es 


NRO OONAVE WN $9 ODNAUES WN $$ O ODONOUES WIN (OC ODNOAUS WIN —O 


SOOCCOCCOCOCOCOOCOOCOoOoOoOoooOOooOoOoOoOooOOo 
WWI AAAI AINA AW AANA WII WWI WWW 


REPIPONINOPIPIPIPIPONINGAPIPPPonyg 
POPONONONONID 2 2 Os 
OUEWN—OWOODNOULSWNO 
Po ar i, 1 

m 

z 

o 

. 


! of ROUTINE new_page 


-PSECT S$PLITS,NOWRT,NOEXE ,2 


OC QOO0B P.AAC: .ASCII <12> 3 
00000001 O000C P.AAB: .LONG 1 3 
00000000" 00010 ADDRESS P.AAC 3 


-PSECT SCODES,NOWRT,2 


pate a L 


; Routine Size: Routine Base: 


19be t:8:33 


00000 NEW_PAGE: 


Analyze/Media Report Generation Module 
new page -- Generate a new page in the Listing 14-Sep- 


000000006 
3 000000006 


62 
3 000000006 


WAWIWIAINONINI NS | OOO 


PAA MTT EY 
PODWOS NIM O OWN DOI D NWO FP OLOST OWO IN 


SWCD" WOOD DOWD MOM OWDNOMONFPOOO 
TOS MUITNO-$ M NOOO HL NH HANH HH NOON 


9 
9 
F 
9 
9 
F 
D 
D 
D 
Dd 
9 
Dd 
F 
F 
F 
E 
D 
F 
F 
Dd 
1 
D 
F 
F 
D 
F 
0 


SCODES + 0088 


FDO -9[8O0 OBMWWO*"OWMIL00CO ™Mmaommn 


oooocoe 
aaINwS 


#BADS_HE 
FO 


#4, FORMAT 


RMA 
BADSGL_S 


X-11 Bliss-32 V4.0-74 
AD. SRC JBADREPORT .B32; 


ADING1 
T_LINE 
ERTALNUM 


#0, PUT_LI 


#0, PUT-LI 


BADSGL_C 
#BADS cs 


LINE 
ONTEXT+1, 1$ 
TMDBS1_ 


#1, FORMAT LINE 


#0, PUT 
#BADS_LS 


#BAD$_LS 
#1, FORM 


#0, PUT 
#BADS_LS 


LINE 
TMDBS2 
TSDBS1 
AT LIN 
LINE 
TSDBS2 


#1, FORMAT_LINE 


——s 


AX-11 Ol isee Rh et od 
BAD. SRCIJBADREPORT .B32; 


then we 


Set the size and address 


Decwement the Line count. 


Yes -- generate a new page. 


PEE TEA Ieee , 

BADREPORT Analyze/Media Report Generation Module 15-Sep-1984 42:4 

rivet put.Line -- Write the current Line to the outpu 12-8ep-19 4 #7 :82:58 

; _ 4 1 2SBTTL ‘put _line -=- Write the current Line to the output file’ 

: , 4g ! ROUTINE git tine (line) : NOVALUE = vbr 

; 1 

; 5 rk ! Functional Description: 

: 5 0350 1! This routine writes the specified line to the output file. 

3 § 8 ey Once the Line is written the Line counter is decremented and if it 

‘ 8 26 : is LEQ 0 then a new page is generated. 

; 39 334 i Inputs: 

3 e 336 : Line adr address of the string descriptor for the Line. 

> 24 0358 1 | Implicit Outputs: 

: re 0385 i i peas li ; * ™ i h fil 

3 ! e Line has been written to t tput ‘ 

: $t2 B38 | nw en to the outpu & 

3 247 Beg 1 !-- 

3; 248 bee BEGIN 

: 249 364 BIND 

; sey tae lLine_desc = Line : REF $BBLOCK; 

: 334 0367 2 BUILTIN 

5 $2 0368 NULLPARAMETER; 

3; 254 0369 

: $22 B09 $F APRS FERC? if no tine geserioter 
3 ! is specifie 

: see 8378 ae report_rab Crab$w_rsz] = 0 ! sonerete a blank Line. 
: 259 0374 BEGIN 

3 $00 0375 report_rab Crab$w_rsz] = .line_desc Cdsc$w_length]; ! of the Line, into the 
; 263 Bere pepert_ree Crab$l=rbf) = .line-desc Cdsc$a~pointerd;! RAB's record control. 
: 26 0378 : 

3 $ 0379 ; copert rab Crab$l_ctx] = bad$_writeerr; ! Pass error code. 

: 2 B3e9 SPUT (RAB = report_rab, ERR ="util$report_io_error); ! Write the Line. 

; 5 bas Line count = .line_count - 1; } 

; tet AF ge ine count LEQ-0 ! Time for a new page? 
; 0388 new_page (); ! 

3 0386 

; 0387 1 END; ! of ROUTINE put_line 


~EXTRN 
0004 00000 PUT_LINE: 
- WORD 
52 0000" CF 9€ 0000 MOVAB 
6C 95 0000 TSTB 
05 13 00009 BEQL 
04 AC 05 00008 TSTL 
04 1 it BNEQ 
62 B64 00010 18: CLRW 


SYS$PUT 


ve R2 
PORT_RAB+34, R2 
P) 

AP) 


Sa 
RE 
(A 
1$ 
4( 
2$ 
REPORT_RAB+ 34 


Page 


0345. 
0370 


0372, 


3; Routine Size: 


273 


eee 


anol yge/Rodte Report Generation Module 
put_line == Write the current Line to t 


5 

6 

06 A 
F6 =—Ae 0 
0 


000 
000 
000000006 0 
FF42 =F 
66 bytes, Routine Base: 
0388 #1 


oc 11 1 
04 =A Be 14 2$: 
04 20 D 0018 
00G 8F b9 00 6 3$: 
00G 00 9F 00028 
DE Ag 9F O002E 
0 Fe 0031 
22 «Ad F5 00038 
00 FB 0003C 
04 00041 4$: 


SCODES + 0108 


ve outpu eoSeoeH8S F428 


AX-11 Bliss-32 V 4.05742 
BAD. SRCJBADR EPORT B32; 
3$ 
LINE_DESC, RO 
(RO)> REPORT RAB*34 
4(ROS, REPORT RAB+40 
#BADS WRITEERR MB EPORT _RAB+24 
UTILS$REPORT_10. ERROR 
REPORT RA 
#2, SYSS$PUT 
LINE COUNT, 4$ 
#0, REW_PAGE 


BADREPORT 
‘V4=600 


Le 
i 
78 
79 
80 
81 


88 


$09 
3 


Bees Be Ge Se Oe Se Se Se FH Se Se Ge Se Ge Se FH Se Se Ss Se Se Se Ge FH Os Se SH Gs Se SH SEHS Se Se Se BH Se Se Ss Oe FHS Ss Os Ss Se SH Se Se Sees esas 
wd 
oO 


POPOPOPOROPONOPURD 2 2 
PYOURUM SSODNAMR WN AOS 


c--- 


10 
Analyze/Media Report Generation Module 18-5e $1984 25:42:4 AX-11 Bliss-32 V4.0-74 Page 11 
format_iine <= Format the output Line with supp 12-80 0-18e $782 358 {BAD .SRE BADREPORT .B32; . (6) 
89 1 XSBITL ‘format Line -- Format the output Line with supplied data’ 
s : ROUTINE format Tine (message, tao-argss : NOVALUE = we 
92 1! 
0 $8 ! Functional Description: 
5 95 1! This routine calls the system services SGETMSG and SFAOL, which will 
0396 1! allow us to obtain the base control string and format the supplied text 
td 4 ; } into a printable record. 
0399 i Inputs: 
be04 1 message val the message number used to obtain the control text. 
Beng : } fao_args adr the address of an fao argument List. 
bcos : Implicit Outputs: 
0406 1! Once the string has been formatted, we call put_line() to write the 
04 44 : ! record to the output file. 
6409 1 !-- 
0410 BEGIN 
0411 LOCAL 
bets ctr_buffer =: S$BBLOCK (132), ! Control string buffer. F 
ott ctr buf_dsc : SBBLOCK Cdsc$c_s_bin], ! Control string buffer descriptor. 
0415 s res_buffer : $BBLOCK (132), ' Result buffer. 
Brig res_buf_dsc : SBBLOCK Cdsc$c_s_bin]; ! Result buffer descriptor. 
be18 CHSFILL (0, dsc$c_s_bln, ctr_buf_dsc); ! Initialize the descriptor. 
0419 CHSFILL (0, dsc$c_s_bln, res_buf_dsc); 
0420 ctr buf_dsc (Cdsc$u_Tength) ="resbuf_dsc Cdsc$w_length] = 132; ! Set the size. 
0421 ctr_buf_dsc Cdsc$t_class] = dsc$k_class_d; ! Initialize the descriptor class. 
pesg res_buf_dsc (dsc$b_class] = dsc$k_class_d; 
042 ctr_buf_dsc Base Repo inter te ctr_Buffer; ! Set the buffer addresses. 
bese res_buf_dsc Cdsc$a_pointerJ= res_buffer; 
P 0426 IF NOT (bad$gl_status = SGETMSG (MSGID = .message, ! Fetch the control string 
P 0427 MSGLEN = ctr_buf_dsc, ! with text ONLY. 
P 0428 BUFADR = ctr_buf_dsc, 
3s , —_ FLAGS = %B8°0001")) 
ath SIGNAL (bad$_getmsg, 0, .bad$gl_status); 
P §e35 IF NOT (bad$gl_status = SFAOL (CTRSTR = ctr_buf_dsc, ! Format the text with 
P 0434 OUTLEN = res_buf_dsc, ! the control string, 
P 0435 OUTBUF = res_buf_dsc, : os ode us the 
0436 PRMLST = fao_args)) ! printable result. 
0437 THEN 
rk SIGNAL (bad$_fao, 0, .bad$gl_status); 
Ree’ put_line (res_buf_dsc); ! Write result to the output file. 
442 END; ! of ROUTINE format_Line 


=r ee 


-_————————_—_ 
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Analyze/Media Report Generation Module i$. Sep-1984 74 AX-11 Bliss-32 V4.0-74 Page 1 
s format. Line =-- Format the output Line with supp 14-Sep-1986 73 $2: $3 BAD. SRCJBADREPORT .832; ’ (BS 
| .EXTRN SYSSGETMSG, SYSSFAOL 
| on seems gga Save R2,R3,R4,R5,R6,R7 0390 
o ave J P 
57 000000006 9E 002 MOVAB bap IBSSIGNAL, R? : 
6 0006 9E 0000 MOV ADSL STATUS, R6 : 
| E F cE 3 00 MOV 80(SP), § : 
| ae mans ¢ 91 mOVCS #0. (SP): 30, #8, CTR_BUF_DSC : 0418 
08 00 6 00 2c 0018 MOVCS #0, (SP), #0, #8, RES_BUF_DSC + 0619 
6E 4 rf 98 00021 MOV7BW RES_BUF _DSC + 0420 
FF74 CD Hn F 98 $0 5 MOVZBW #132: aa BUF ~D ; 
FF77 CD 02 90 00028 MOVB fg, t BOF _DSC+ + 0421 
03 AE 02 90 00030 MOVB soft RES” BUF “DSC+ : 0422 
FF7B CD FF7C CD 9€ 000 MOVAB CTR_BUFFER,~CTR_BUF_DSC+4 : 04 
04 AE 08 AE 9E 00038 MOVAB RES-BUFFER, RES~BUF DSC +4 + 0424 
7E 01 7D 90049 MOVO #1, ~=(SP) + 0429 
FF74 CD 9F 0004 PUSHAB CTR_BUF_DSC ; 
FF74 CD 9F 00047 PUSHAB CTR-BUF DSC ; 
04 AC ODD 90048 PUSHL ESSAG AG F 
000000006 00 05 FB OO4E CALLS #5, SYSSGETMSG ; 
it 50 pO 0005 MOVL RO, BADSGL_STATUS ; 
0D 50 £8 00058 BLBS_ _— RO, 3 
66 DD 00058 PUSHL BADSGL _STATUS + 0431 
7E D4 0005D CLRL. = = (SP) ; 
000000006 8F DD 0005F PUSHL AD$_GETMSG : 
67 03 FB 00065 CALLS LTBS$SIGNAL ; 
08 AC 9F 00068 1S: PUSHAB FAO_AR RGS + 0436 
04 AE 9F 00068 PUSHAB RES ~BUF _DSC : 
08 AE 9F 0006E PUSHAB RES ~BUF ~DSC ; 
FF74 CD 9F 00071 PUSHAB CTR~BU Ds : 
000000006 00 04 FB 00075 CALLS #4, SYSSFA : 
66 0 dO 0007¢ MOVL RO. BADSGL. OS TATUS F 
0D 50 €8 0007F BLBS ; 
66 DD 00082 PUSHL BABSGL_ STATUS : 0438 
7E 04 00084 CLRL. -=(SP ; 
000000006 8F DD 00086 PUSHL #BADS : 
67 03 FB at 44 CALLS " PTBSSIGNAL 3 
SE DD OOO8F 2$: PUSHL SP + 0440 
FF28 CF 07 FB 00091 CALLS #1, PUT_LINE : 
04 00096 RET + 0442 


; Routine Size: 151 bytes, Routine Base: S$CODES + 014A 


3; 329 0443 1 
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e (); 
pores. 5 ine (bad$_blkObad, bad$ga_device); Write the warning. 


put_line (); , 
format_line (bad$_lststring, bad$ga_comnd_line); 


END; ! of GLOBAL ROUTINE bad$produce_report 


Skip a Line and write 
the command Line. 


Analyze/Media Report Generation Module 15-Sep-1984 $36¢:83 AX-11 Bliss<-32 V4.0-74 Page 13 
bad$produce_report == Generate report from dete 14-Sep-1984 11:54:2 BAD.SRCJBADREPORT .832; (7) 
464 1 ZSBTTL sur tee ees e_report -- Generate rogers from detected bad sector file(s)‘ 
ret : GLOBAL ROUTINE bad$Sproduce_report : NOVALUE = 
447 1! 
re : Functional Description: 
se ! This routine generates the report from the detected bad sector file(s). 
04 1! Implicit Inputs: 
ee 1! 
0454 1! Global data. 
Bo 32 1! 
$28 1 !<- 
045 BEGIN 
0458 new. page Q); ! Generate a new page. 
0459 If .bad$gl_context Cctx_v_ltdevice] 
0460 THEN 
0461 BEGIN 
046 List last_track (); ' Last track devices. 
046 put_Tine 7%); ' Skip another Line and 
0464 format_line (bad$_lsttotbk, ! write the total number 
0465 badsaq devnam, ! of blocks on the device 
.bad qt_maxblock. ! followed by the number of 
ree4 -mdbsf_count + .sdbsf_count); ! bad blocks detected. 
0469 
0470 BEGIN 
0471 List _non_lsttrk (); ! Non Last track devices. 
O76 put_Tine’ (); ' Skip another Line and 
047 format_line (bad$_lsttotbk, ! write the total number 
0474 badsoq devnam, ! of blocks on the device 
0475 -bad qt_maxblock, ' followed by the number of 
0476 -sdbsf_count); ! bad blocks detected. 
ri ho 
0479 IF .bad$gl_context Cctx_v_blkObad) ! If block 0 is bad, 
0480 THEN ! be sure to include the 
0481 BEGIN 4 yorning in the report. 
048 put_lin Space it for visibility. 


0004 00000 -ENTRY BADSPRODUCE_REPORT, Save R2 > 0445 

5 FF21 CF 9E 0006 MOVAB PUT_LINE, R2 3 
83 OA 00 Fs 0 CALLS #0, ~NEW PAGE > 0458 
1 00006 CF €£9 000 LBC  BAOSGL CONTEXT+1, 1$ : 0459 
0000v CF 0 FB 0001 CALLS 40, LIST_LAST_TRACK : 046 
62 0 FB 0001 CALLS #0, PUT_CINE > 046 


<@ 


pemeer i ee | ve en pues 
| Sapag cont Analyze/Media Report Generation Module 18.29 1984 $3299 :38 ae Bliss-32 V4.0- 


74 
—v04 bad$produce_report == Generate report from dete 14-Sep-19 4 AD. SRCIBADREPORT .B32; 
7E 0000" CF 0000" CF } 00 ADDLS $0BSF COUNT, MDBSF_COUNT, =-(SP) 
0000v CF 6 FB 1$: CALLS #0, LIST_NON_LSTTRK 
62 ra 3 CALLS #0, PUT_CINE 
0000" CF DD A PUSHL  SDBSF_COUNT 
000G CF pO 0 ; 28: PUSHL BADSGC_MAXBLOCK 
000G CF 9F 000 PUSHAB BAD$GQ~DEVNAM 
00000000G BF odD ° PUSHL #BAD$_CSTTOTBK 
42 A 4 FB C CALLS #4, FORMAT_LINE 
11 0000G CF 1 €1 00040 BBC #1, BADSGL-CONTEXT, 3$ 
0006 ? oF 9k SUSAR Hie A_BEVICE 
oooovsoog DO $o4 PUSHL ADS BLKOBAD 
42 : FB 0005 CALLS #2, FORMAT LINE 
FB 00057 3$: CALLS #0, PUT_LIRE 
90006 CF 9F OO05A PUSHAB BADSGA_COMND_LINE 
000000006 ef DD 0005E PUSHL + a CSTSTRING 
42 2 2 4 se Hts #2, FORMAT_LINE 


; Routine Size: 105 bytes, Routine Base: SCODES + O1E1 


; 377 0490 1 


<o | 


—————__-------------——_—— 


BADR T Analyze/Media Report Generation Mod 15-40 -1984 23: AX-11 Bliss-32 v4.0-74 
V06 bodds lene, Files => these oll aon files ae et) at ae) SM ht rete 
: 91 1 2SBTTL ‘badSclose files -- Close allo n files’ 
: g ! GLOBAL ROUTINE badSclose_files : NOVALU 
; 9% 1 
; 95 : Functional Description: 
3 a3 } Close the output file here to trap any weird problems. 
; 39 ! Implicit Inputs: 
3 ; 1 1 report_fab the address of the report fab. 
; 3 ¢ ; Side Effects: 
; 505 1 Any problems in closing the output file will be reported via 
: 88 +i a Si 8NaL. “ ° , 
; 507 1! 
3 0508 1 !-- 
; 0309 @ BEGIN 
: 0511 ceport. fab Cfab$i_ctx] = bad$_closeout: ' Pass error code. 
3 Bat¢ SCLOSE (FAB = report_fab, ERR™= util$report_ jio.error); ! Close the output file. 
; 0514 1 END;  ! of GLOBAL ROUTINE bad$close_files 
SYSSCLOSE 
Ras 00000 ate way, pitas. sexe wate 4 
0000" CF 000000006 DO 00002 #BAD$_CLOSEOUT, ORT_FAB+2 
000000006 00 9F 000 UT ILSREPORT_I 10_ ERROR 
0000' 9F 0001 ~ 
000000006 00 63 FB 00015 & SYSSCLOSE 
04 0001C 


3; Routine Size: 29 bytes, Routine Base: S$CODE$S + 024A 


403 0515 1 
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405 
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nalyze/Media Report Generation Module 18.50 =1984 23:42:46 AX-11 Bliss-32 v4.0-74 a 1 
st_last_track -- List the contents of both th 14-Sep-19 6 #7:62:58 {BAD .SRC BADREPORT .B832; — (95 
1 1 ZSBTTL ‘List_last_track -- List the contents of both the MDBSF and SDBSF' 
} ROUTINE List _Tast_frack : NOVALUE = 
1 . 


i Implicit Inputs: 


bad$ga_mdbsf address of the MDBSF b 
bad$ga_sdbsf address of the SDBSF b 


' Cylinder number of MDBSF entry. 
Track number of MDBSF enrty. 


i Sector number entry. 
! Cylinder number entry. 
Track number entry. 


| pet nes ten y ee tat Ne hy ee Nae? 4 


i Sector number of SDBSF entry. 
! We have an MDBSF entry. 


secd, 
mdbsf_present, 
! We have an SDBSF entry. 


sdbsf_present; 


mdbsf_count = sdbsf_count = 0 Initialize the counters. 


bs H 
INCA Santry FROM 2 10 bad$k_page_size / 4 - 1 DO 
ignneet preeemt = get_entry (.entry, .bad$ga_mdbsf, secl, trk1, cyl1) 


SOOO OCGCOOOCOOOCOOCOOOCOOOOOOOOOOOOOSCO - PF» 


Dl ek el lat at at 


mdbsf_count = .mdbsf_count + 1; 


faghieet present = get_entry (.entry, .bad$ga_sdbsf, sec2, trk2, cyl2) 
sdbsf_count = .sdbsf_count + 1; 


Ab Ab dh Ab Ahhdee dh hb-deb-deb-deb-dh dh dh dh dh dh Ah Ab Ab Ab Ab Ab Ah Ab Ah Ab Ab Ab Ab Ab Ab ah ch ah ch ch dh dh dh dk Alien 


IF _.mdbsf_present AND .sdbsf_present 
THEN 


on og TEOt tine (bad$_lstmdbs3, .secl, .trk1, .cyll, .sec2, .trk2, .cyl2) 


IN 

IF .mdbsf_present 

THEN 

as format_line (bad$_lstmdbsf, .secl, .trk1, .cyl1) 
IF _.sdbsf_present 
THEN 


format_line (bad$_lstsdbsf, .sec2, .trk2, .cyl2); 
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| BADR T Analyze/Media Report Generation Module 18. 1984 23:42:4 AX-11 Bliss-32 V4.0-74 
‘ot=bod" List_last_track == List the contents of both th 122808-1 986 4:92:58 {BAD .SRC BADREPORT .B32; 
i; «46 73 : 
; 46 74 : At the conclusion of Listing the contents of the MDBSF and SDBSF, 
: re ¢) e write the summary of number of bad sectors recorded. 
; 466 28 put_line (); ! Skip a Line. 
: re 14 278 format_line (bad$_lstmdbs4, .mdbsf_count, .sdbsf_count);! Write the respective buffer counts. 
: 469 0580 1 END; |! of ROUTINE List_last_track 


007C 00000 LIST_LAST TRACK: 


Qo Save R2,R3,R4,R5,R6 
56 FEDD CF 9€ 0000 MOVAB FORMAT _LINE, R6 
5 0000° CF 00 MOV SDBSF_COUNT. R5 
5E 18 C2 0000C¢ SUBL2 #24 
65 04 OO00F CLRL  SDBSF_COUNT 
FB AS OG 90011 CLRL  MDBSF~ COUNT 
52 ge DO 00014 MOVL #2, ERTRY 
E DD 00017 1$: PUSHL 
08 AE 9F 00019 PUS TRK1 
10 AE OF b001¢ PUSHAB SEC1 
00006 cf DD 0001F PUSHL BADSGA_MDBSF 
: DD 00023 PUSHL ENTRY 
0000v ct : FB 00 5 CALLS #5, GET_ENTRY 
4 0 DO 0002A VL RO, MDBSF PRESENT 
03 54 €9 00020 BLBC § MDBSF_PRESENT, 2$ 
FB OAS b6 00 9 INCL  MDBSF COUNT 
OC AE 9F 00033 28: PUSHAB CYL 
14 AE OF 00036 SHAB TRK 
1¢ AE 9F 00039 PUSHAB SEC 
00006 cr DD 0003¢ PUSHL BADSGA_SDBSF 
: DD 00040 PUSHL ENTRY 
0000v CF g FB O04¢ CALLS #5, GET_ENTRY 
53 DO 0004 MOVL RO, SDBSF_ PRESENT 
02 53 £9 000A BLBC  SDBSF_PRESENT, 3$ 
06 004D INCL  SDBSF-COUNT 
33 4 £9 OO04F 35: BLBC = MDBSF-PRESENT, 5$ 
1D 53 «€9 0052 BLBC  § SDBSF-PRESENT. 4$ 
OC AE OD 004 PUSHL CYL 
14 AE DD 00058 PUSHL TRK 
1¢ AE DO 0098 PUSHL SEC 
OC AE OD 3 USHL CYL 
14 AE DD 906 PUSHL TRK1 
1¢ AE DD 00064 USHL SEC 
000000006 8F DD 00067 PUSHL ADS_LSTMDBS3 
66 ? FB 9060 CALLS #7, FORMAT_LINE 
8 1 0 BRB 
10 4 €9 00072 4$: BLBC  § MDBSF_PRESENT, 5$ 
6— DD 0007 PUSHL CYL1 
08 AE DD 0007 PUSHL TRK1 
10 AE DD OOO7A PUSHL  SEC1 
000000006 af DD 7 PUSHL #BADS_LSTMDBSF 
: 1 008 BRB 
12 53 £9 00085 5$: BLBC = SDBSF_PRESENT, 7$ 


Pa 17 
” (9) 


0566 
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a” T Analyze/Media Report Generation Module ib. Sep- 
yet List Last track e= List the contents of both th leckenctone 44:84:58 
" O¢ AE DD 090 PUSHL 
ait 
, ommootic FE Ra ag, BU 
FF73 52 87 ooo0007F BF. OES booon Se ACBL 
A6 FB AG CALLS 
3 DD OOOAS PUSHL 
£8 AS DD OOOAA PUSHL 
000000006 BF DD O00A PUSHL 
66 3 FB 0008 CALLS 
04 00086 RET 


; Routine Size: 183 bytes, Routine Base: SCODE$S + 0267 


; 470 0581 +1 


AX-11 Bliss-32 V4.0-7 
BAD. SRC BADREPORT _832; 
TRK 


#BADS_LSTSDBSF 
FORMAT_LINE 


MOBSF _COUNT 
sgADs LSTMDBS4 
« FORMAT_LINE 


Be Se Se Se Se Be Se Ge Ge Ge Se Se 
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BADR T Analyze/Media Report Generation Module 1b-Se 1984 23:42:4 AX-11 Bliss-32 V4.0-74 Pa 19 
yon p08" get entry -- Retr eve the buffer entry 12-80-1382 $7 :$2:58 {BAD SRC BADREPORT 83274 9° 10) 


; 47 § 1 RSBTTL ‘get_entry <= Retrieve the buffer entry’ 

3 67 1 ROUTINE get_entry (index, buffer, sec, trk, cyl) = 

: 4746 1 lee 

; 475 $ 1! 

3 $2 ! Functional Description: 

; 47 : 1: This routine extracts a single entry from the indicated buffer. If the 

3; of 2 1} entry which it extracted was the end of file mark (-1), then we return 

; 480 1! FASLE, else if it was a valid entry, we will convert the entry into its 

; 481 0991 ; constituent parts and return TRUE. 

3 4 298 1 ! Inputs: 

3 «6 594 1! 

; 485 595 1! index val offset from the start of the buffer of the entry, 

3 ry, bee : buffer adr address of the buffer to extract an entry from. 

; 488 0598 1 ! Outputs: 

; 489 0599 1! 

; 490 0600 1! sec adr address of a longword to receive the sector number. 

; 491 0601 1! trk adr address of a longword to receive the track number. 

3 3 et : cyl adr address of a longword to recieve the cylinder number. 

3 494 0604 1 !-- 

; 495 0605 BEGIN 

> 496 0606 

3; 497 0607 cyl : REF $BBLOCK, 

: 498 0608 trk : REF $BBLOCK, 

; 499 0609 sec : REF S$BBLOCK 

; 500 0610 buffer : REF VECTOR C, LONG); 

: 501 0611 

: 208 pote LOCAL 

; rt, pel? value_present : BYTE; 

; 505 0615 value_present = FALSE; ! Assume end of file has been reached. 
; 206 gei8 IF .buffer C.index) NEQ -1 ! Have we got a valid entry? 
3; 50 061 THEN ! Yes -= convert the entry 

; 508 0618 BEGIN ! into its constituent parts. 
5; 3OP 0619 bad$Scvt_ltk_long (.buffer C.index], .sec, .trk, .cyl); 

; 510 0620 value_present = TRUE; ! Indicate its a valid entry. 
3 at; Be 1 ND; 

3 318 Oe3s RETURN .value_present; ! Return with boolean indicator. 
s 315 0625 1 END; ! of ROUTINE get_entry 


0004 00000 GET_ENTRY: 


«WORD Save R2 3 0383 

52 94 00002 CLRB = VALUE_ PRESENT > 0615 

50 4 AC DO 00004 MOVL IN > 0616 
FEFFFFFFE © BF 8 BC40 D1 00008 CMPL a@BUFFERIRO), #-1 ; 
15 13 0011 BEQL : 

10 ac 7D O13 MOVO  TRK, =(SP) > 0619 
OC AC DD 0001 PUSHL SEC ; 


am 


T Analyze/Media Report Generation Module 18-Sep-1984 $339 :38 a" Bliss-32 Ve Oerte 


get_entry -- Retrieve the buffer entry 4-Sep- AD.SRCIJBADREPORT .B832; 
08 BC40 DD 1A PUSH aBUF FERCROJ 
000000006 99 4 4 a CALLS #4, BADSCVT_LTK_ LONG 
1 9 2 #1, VALUE_PRESERT 
50 2 9A 00028 1$: MOVZBL VALUE_PRESENT, RO 
04 00028 RET 


; Routine Size: 44 bytes, Routine Base: SCODE$S + O31E 


>; 516 0626 1 
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alyze/Media Report Generation Module 1$-Se =1984 23:462:4 AX-11 Bliss-32 V4.0-74 P 1 
y : $ sop langep-t9ed fiisesos «| ERR age 49) 


BADR T An 
- List_non_(sttrk == List the contents of the D.SRCJBADREPORT .832; 
; i 627 1 XSBITL ‘List_non_lsttrk == List the contents of the SDBSF' 
.. 9 8 1 ROUTINE List_fon_Tsttrk : NOVALUE = 
; 0 629 1 S++ 
; 1 630 1! 
3 ¢ Oe 1 } Functional Description: 
: 4 6 , 1: List the contents of the non Last track SDBSF. Here we have a count of 
3 32> be 4 1! the number of used bad block descriptors and will iteratively extract 
3 (See os> 3 ! and convert the descriptor into our output format. The completion will 
; 44 Be : ! : Simply List the total number of bad blocks recorded. 
3 386 pose ! } Implicit Inputs: 
3 331 see : bad$ga_sdbsf address of the SDBSF buffer. 
; 338 Ose 1 !-- 
> 534 064 BEGIN 
3 32° 0644 LOCAL 
3 299 0645 bn, 
3 dor 0646 count : BYTE; 
; 538 0647 
; 539 0648 sdbsf_count = 0; ! Initialize counter. 
; 540 0649 INCR entry FROM .bad$ga_sdbsf + nit_k_headersiz ! Extract the used 
; 541 0650 TO jdadsoa_sdbst + nlt_k_headersiz + ! bad block descriptors 
; 208 0651 (.bad$ga_sdbsf Cnlt_b_usedbbdsc] * 2 - 4) ! and convert the entrys 
; «54 b63¢ BY 4 DO ! into longwords, whic 
3; 544 065 BEGIN ! will be used in the 
> 545 0654 bad$cvt_nilt_long (..entry, count, lbn); ! Listing. Keep a count 
; 546 0655 sdbsf_count™= .sdbsf_count + .count + 1; ! of the number of bad 
; 547 0656 3 format_line (bad$_lstsdbs3, .lbn, .count); ' blocks as we write the 
; 548 0657 2 END; ! Listing. 
; 549 0658 2 e 
3; 350 0659 1 END; ! of ROUTINE List_non_l(sttrk | 
001C 00000 LIST_NON_LSTTRK: 
«WORD Save R2,R3,R4 ; 0628) 
54 0000" CF 9 0000 MOV SDBSF_COUNT, R4 ; 
5€ 08 C2 0000 SUBL #8, S$ ; 
64 D4 OOO0A CLRL SDBSF_COUNT : 0648 
4 00996 CF pf S C MOVL GADSER. sb8SF . R2 3 0649 
5 2 A A 11 MOVZBL 2(R2), RO ; 0651. 
53 6240 3E 00015 MOVAW (R2)CROJ, R3 ; 0650. 
B 11 00019 BRB 2s : 0649 
E oD Baie 1$ PUSHL : 0654 | 
08 A F 0001D PUSHAB COUN : 
62 DD 000 PUSHL att : 
000000006 00 03 FB oh ALLS #3, BADSCVT_NLT_LONG : 
50 04 AE 9A 00 MOVZBL COUNT, ; 0655 
50 64 CO 0002D ADDL SDBSF_COUNT, RO : 
64 01 AO 9E 99 0 MOVAB 1(RO)7 SDBSF_COUNT ; 
E 4 AE 9A 00034 MOVZBL COUNT, -(SP) ; 0656 
88 AE DD 00038 PUSHL L ; 
00000000G 8F DD 00038 PUSHL #BADS_LSTSDBS3 : 


BADREPORT Analyze/Media Report Generation Module 18-40 p-1984 AX-11 Bliss-32 V4.0-74 Pa 2 
viet List-non._| isttrk = List the contents of the SDB 12-808-138e t $i $f: $3 BAD.SRC BasRePOnt -B32; dnt id 


FDOBA CF CALLS #3, A ar LINE ; 
04 83 Ht T 90048 46 2$: ace RS, ENTRY, 3 eh 


FFCF 52 


; Routine Size: 77 bytes, Routine Base: S$CODE$ + 034A 
0661 1 END 
0662 0 ELUDOM 


~-EXTRN LIBSSIGNAL 
PSECT SUMMARY 


Name she: Attributes 
SOWNS NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, poate og bg batt 
SPLITS '$ NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 919 NOVEC, *NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


eooccese Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBILIB.L32;1 18619 80 0 1000 00:01.4 | 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:BADREPORT/OBJ=O0BJ$:BADREPORT MSRC$:BADREPORT/UPDATE=(ENH$:BADREPORT ) 


; Size: 919 oes. + 184 data bytes 
; Run Time: 

; Elapsed Time: 80; 
; Lines/CPU Min: 301 
; Lexemes/CPU-Min: 30578 
: Y Used: 143 pages 
; Compilation Complete 


ee 
Win. 
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